home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / SWI / source / lib / files.pl < prev    next >
Encoding:
Text File  |  1995-08-16  |  1.0 KB  |  40 lines
  1. /*  $Id: files.pl,v 1.2 1995/08/16 11:49:39 jan Exp $
  2.  
  3.     Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  4.     jan@swi.psy.uva.nl
  5.  
  6.     Purpose: file manipulation
  7. */
  8.  
  9. :- module(files,
  10.     [ can_open_file/2
  11.     ]).
  12.  
  13. %    can_open_file(+Path, +Mode)
  14. %    Succeeds if the user has access to `File' in mode `Mode'.  Fails
  15. %    silently if this is not the  case.   `Mode'  is  one  of  {read,
  16. %    write, both}.  This used to be difficult.  Since we have
  17. %    access_file/2 it is merely a Quintus compatibility predicate
  18. %    and should be in quintus.pl.  We will leave it here for compatibility
  19. %    reasons.
  20.  
  21. can_open_file(File, read) :- !,
  22.     access_file(File, read).
  23. can_open_file(File, write) :- !,
  24.     (   exists_file(File)
  25.     ->  access_file(File, write)
  26.         ;   path_dir_name(File, Dir),
  27.         access_file(Dir, write)
  28.     ).
  29. can_open_file(File, both) :-
  30.     access_file(File, read),
  31.     access_file(File, write).
  32.  
  33. path_dir_name(File, Dir) :-
  34.     file_base_name(File, Base),
  35.     concat(RawDir, Base, File),
  36.     (   RawDir == ''
  37.     ->  Dir = '.'
  38.     ;   Dir = RawDir
  39.     ).
  40.